home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 26 / Cream of the Crop 26.iso / program / ddj0897.zip / DYN401.ZIP / class / link.c < prev    next >
C/C++ Source or Header  |  1997-04-16  |  7KB  |  333 lines
  1.  
  2.  
  3. /*  Copyright (c) 1993-1996 Algorithms Corporation  */
  4. /*  All rights reserved.  */
  5.  
  6.  
  7.  
  8.  
  9. /*  This file automatically generated by dpp - do not edit  */
  10.  
  11. #define    DPP_STRATEGY    2
  12. #define    DPP_FASTWIDE    0
  13.  
  14.  
  15.  
  16.  
  17. #define    CLASS    Link_c
  18. #define    ivType    Link_iv_t
  19.  
  20. #include "generics.h"
  21.  
  22. object    Link_c;
  23.  
  24.  
  25. #line 26 "link.c"
  26. typedef struct  _Link_iv_t  {
  27.     object iPrev;
  28.     object iNext;
  29.     object iList;
  30. }    Link_iv_t;
  31.  
  32.  
  33.  
  34. #line 24 "link.d"
  35. imeth objrtn Link_im_gNext(object self)
  36. { Link_iv_t *iv = GetIVs(Link, self);
  37.     return iv->iNext == iv->iList ? NULLOBJ : iv->iNext; 
  38. } 
  39.  
  40. imeth objrtn Link_im_gPrevious(object self)
  41. { Link_iv_t *iv = GetIVs(Link, self);
  42.     return iv->iPrev == iv->iList ? NULLOBJ : iv->iPrev; 
  43. } 
  44.  
  45. imeth objrtn Link_im_gList(object self)
  46. { Link_iv_t *iv = GetIVs(Link, self);
  47.     return iv->iList; 
  48. } 
  49.  
  50. imeth objrtn Link_im_gChangeNext(object self, object next)
  51. { Link_iv_t *iv = GetIVs(Link, self);
  52.     ChkArgNul(next, 2); 
  53.     iv->iNext = next; 
  54.     return self; 
  55. } 
  56.  
  57. imeth objrtn Link_im_gChangePrevious(object self, object prev)
  58. { Link_iv_t *iv = GetIVs(Link, self);
  59.     ChkArgNul(prev, 2); 
  60.     iv->iPrev = prev; 
  61.     return self; 
  62. } 
  63.  
  64. imeth objrtn Link_im_gInitLink(object self, object list, object prev, object next)
  65. { Link_iv_t *iv = GetIVs(Link, self);
  66.     ChkArgNul(list, 2); 
  67.     ChkArgNul(prev, 3); 
  68.     ChkArgNul(next, 4); 
  69.     iv->iList = list; 
  70.     iv->iPrev = prev; 
  71.     iv->iNext = next; 
  72.     return self; 
  73. } 
  74.  
  75. imeth objrtn Remove(object self)
  76. { Link_iv_t *iv = GetIVs(Link, self);
  77. #ifdef NATIVE_THREADS 
  78.         if (iv->iList) 
  79.         gEnterCriticalSection(iv->iList); 
  80. #endif 
  81.         if (iv->iNext && iv->iNext != self) 
  82.         ivPtr(iv->iNext)->iPrev = iv->iPrev; 
  83.     if (iv->iPrev && iv->iPrev != self) 
  84.         ivPtr(iv->iPrev)->iNext = iv->iNext; 
  85.     if (iv->iList && iv->iList != self) 
  86.         gIncNelm(iv->iList, -1); 
  87.     iv->iList = iv->iNext = iv->iPrev = NULLOBJ; 
  88. #ifdef NATIVE_THREADS 
  89.         if (iv->iList) 
  90.         gLeaveCriticalSection(iv->iList); 
  91. #endif 
  92.         return self; 
  93. } 
  94.  
  95. imeth objrtn Link_im_gDispose(object self)
  96. { 
  97.     Remove(self); 
  98.     return oSuper(Link_c, gDispose, self)(self); 
  99. } 
  100.  
  101. imeth objrtn Link_im_gDeepDispose(object self)
  102. { 
  103.     Remove(self); 
  104.     return oSuper(Link_c, gDeepDispose, self)(self); 
  105. } 
  106.  
  107.  
  108.  
  109. imeth objrtn AddBefore(object self, object lnk)
  110. { Link_iv_t *iv = GetIVs(Link, self);
  111.     ivType *iv2; 
  112.  
  113.     ChkArg(lnk, 2); 
  114.     if (self == lnk) 
  115.         return self; 
  116. #ifdef NATIVE_THREADS 
  117.         if (iv->iList) 
  118.         gEnterCriticalSection(iv->iList); 
  119. #endif 
  120.         iv2 = ivPtr(lnk); 
  121.     if (iv2->iList || iv2->iNext || iv2->iPrev) 
  122.         gError(self, "Attempt to add a node to a list which is a member of another list."); 
  123.     if (iv2->iPrev = iv->iPrev) 
  124.         ivPtr(iv2->iPrev)->iNext = lnk; 
  125.     iv2->iNext = self; 
  126.     iv->iPrev = lnk; 
  127.     if (iv2->iList = iv->iList) 
  128.         gIncNelm(iv->iList, 1); 
  129. #ifdef NATIVE_THREADS 
  130.         if (iv->iList) 
  131.         gLeaveCriticalSection(iv->iList); 
  132. #endif 
  133.         return self; 
  134. } 
  135.  
  136.  
  137.  
  138. imeth objrtn AddAfter(object self, object lnk)
  139. { Link_iv_t *iv = GetIVs(Link, self);
  140.     ivType *iv2; 
  141.  
  142.     ChkArg(lnk, 2); 
  143.     if (self == lnk) 
  144.         return self; 
  145. #ifdef NATIVE_THREADS 
  146.         if (iv->iList) 
  147.         gEnterCriticalSection(iv->iList); 
  148. #endif 
  149.         iv2 = ivPtr(lnk); 
  150.     if (iv2->iList || iv2->iNext || iv2->iPrev) 
  151.         gError(self, "Attempt to add a node to a list which is a member of another list."); 
  152.     if (iv2->iNext = iv->iNext) 
  153.         ivPtr(iv2->iNext)->iPrev = lnk; 
  154.     iv2->iPrev = self; 
  155.     iv->iNext = lnk; 
  156.     if (iv2->iList = iv->iList) 
  157.         gIncNelm(iv->iList, 1); 
  158. #ifdef NATIVE_THREADS 
  159.         if (iv->iList) 
  160.         gLeaveCriticalSection(iv->iList); 
  161. #endif 
  162.         return self; 
  163. } 
  164.  
  165.  
  166.  
  167. imeth objrtn Link_im_gMoveBeginning(object self)
  168. { Link_iv_t *iv = GetIVs(Link, self);
  169.     ivType *iv2; 
  170.  
  171.     if (!iv->iList || self == iv->iList) 
  172.         return NULLOBJ; 
  173. #ifdef NATIVE_THREADS 
  174.         gEnterCriticalSection(iv->iList); 
  175. #endif 
  176.         iv2 = ivPtr(iv->iList); 
  177.     if (iv2->iNext == self) { 
  178. #ifdef NATIVE_THREADS 
  179.             gLeaveCriticalSection(iv->iList); 
  180. #endif 
  181.             return self; 
  182.     } 
  183.     Remove(self); 
  184.     AddAfter(iv->iList, self); 
  185. #ifdef NATIVE_THREADS 
  186.         gLeaveCriticalSection(iv->iList); 
  187. #endif 
  188.         return self; 
  189. } 
  190.  
  191.  
  192.  
  193. imeth objrtn Link_im_gMoveEnd(object self)
  194. { Link_iv_t *iv = GetIVs(Link, self);
  195.     ivType *iv2; 
  196.  
  197.     if (!iv->iList || self == iv->iList) 
  198.         return NULLOBJ; 
  199. #ifdef NATIVE_THREADS 
  200.         gEnterCriticalSection(iv->iList); 
  201. #endif 
  202.         iv2 = ivPtr(iv->iList); 
  203.     if (iv2->iPrev == self) { 
  204. #ifdef NATIVE_THREADS 
  205.             gLeaveCriticalSection(iv->iList); 
  206. #endif 
  207.             return self; 
  208.     } 
  209.     Remove(self); 
  210.     AddBefore(iv->iList, self); 
  211. #ifdef NATIVE_THREADS 
  212.         gLeaveCriticalSection(iv->iList); 
  213. #endif 
  214.         return self; 
  215. } 
  216.  
  217.  
  218.  
  219. imeth objrtn Link_im_gMoveAfter(object self, object lnk)
  220. { 
  221.     ChkArg(lnk, 2); 
  222.     Remove(self); 
  223.     AddAfter(lnk, self); 
  224.     return self; 
  225. } 
  226.  
  227.  
  228.  
  229. imeth objrtn Link_im_gMoveBefore(object self, object lnk)
  230. { 
  231.     ChkArg(lnk, 2); 
  232.     Remove(self); 
  233.     AddBefore(lnk, self); 
  234.     return self; 
  235. } 
  236.  
  237. imeth objrtn Link_im_gStringRepValue(object self)
  238. { Link_iv_t *iv = GetIVs(Link, self);
  239.     if (iv->iList && iv->iList == self) 
  240.         return oSuper(Link_c, gStringRepValue, self)(self); 
  241.     else 
  242.         return vSprintf(String, "(<%8.8lx>, <%8.8lx>)", iv->iPrev, iv->iNext); 
  243. } 
  244.  
  245. imeth objrtn Link_im_gStringRep(object self)
  246. { 
  247.     object s, t; 
  248.  
  249.     s = oSuper(Link_c, gStringRep, self)(self); 
  250.     t = gStringRepValue(self); 
  251.     vBuild(s, NULL, t, "\n", NULL); 
  252.     gDispose(t); 
  253.     return s; 
  254. } 
  255.  
  256. imeth objrtn Link_im_gCopy(object self)
  257. { 
  258.     object nobj; 
  259.     ivType *iv2; 
  260.  
  261.     nobj = oSuper(Link_c, gCopy, self)(self); 
  262.     iv2 = ivPtr(nobj); 
  263.     iv2->iList = iv2->iNext = iv2->iPrev = NULLOBJ; 
  264.     return nobj; 
  265. } 
  266.  
  267. imeth objrtn Link_im_gNth(object self, int idx)
  268. { 
  269.     while (idx > 0 && self) { 
  270.         self = gNext(self); 
  271.         idx--; 
  272.     } 
  273.     while (idx < 0 && self) { 
  274.         self = gPrevious(self); 
  275.         idx++; 
  276.     } 
  277.     return idx ? NULLOBJ : self; 
  278. } 
  279.  
  280.  
  281. #line 282 "link.c"
  282.  
  283. objrtn    Link_initialize(void)
  284. {
  285.     static  CRITICALSECTION  cs;
  286.     static  int volatile once = 0;
  287.  
  288.     ENTERCRITICALSECTION(_CI_CS_);
  289.     if (!once) {
  290.         INITIALIZECRITICALSECTION(cs);
  291.         once = 1;
  292.     }
  293.     LEAVECRITICALSECTION(_CI_CS_);
  294.  
  295.     ENTERCRITICALSECTION(cs);
  296.  
  297.     if (Link_c) {
  298.         LEAVECRITICALSECTION(cs);
  299.         return Link_c;
  300.     }
  301.     INHIBIT_THREADER;
  302.     Link_c = gNewClass(Class, "Link", sizeof(Link_iv_t), 0, END);
  303.     iMethodFor(Link, gAddAfter, AddAfter);
  304.     iMethodFor(Link, gInitLink, Link_im_gInitLink);
  305.     iMethodFor(Link, gRemove, Remove);
  306.     iMethodFor(Link, gMoveBeginning, Link_im_gMoveBeginning);
  307.     iMethodFor(Link, gChangeNext, Link_im_gChangeNext);
  308.     iMethodFor(Link, gMoveAfter, Link_im_gMoveAfter);
  309.     iMethodFor(Link, gList, Link_im_gList);
  310.     iMethodFor(Link, gNext, Link_im_gNext);
  311.     iMethodFor(Link, gAddBefore, AddBefore);
  312.     iMethodFor(Link, gDispose, Link_im_gDispose);
  313.     iMethodFor(Link, gChangePrevious, Link_im_gChangePrevious);
  314.     iMethodFor(Link, gMoveBefore, Link_im_gMoveBefore);
  315.     iMethodFor(Link, gMoveEnd, Link_im_gMoveEnd);
  316.     iMethodFor(Link, gStringRepValue, Link_im_gStringRepValue);
  317.     iMethodFor(Link, gPrevious, Link_im_gPrevious);
  318.     iMethodFor(Link, gCopy, Link_im_gCopy);
  319.     iMethodFor(Link, gDeepDispose, Link_im_gDeepDispose);
  320.     iMethodFor(Link, gStringRep, Link_im_gStringRep);
  321.     iMethodFor(Link, gDeepCopy, Link_im_gCopy);
  322.     iMethodFor(Link, gNth, Link_im_gNth);
  323.  
  324.     ENABLE_THREADER;
  325.  
  326.     LEAVECRITICALSECTION(cs);
  327.  
  328.     return Link_c;
  329. }
  330.  
  331.  
  332.  
  333.